home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 2000 February
/
PCWorld_2000-02_cd.bin
/
Software
/
Vyzkuste
/
xsetup
/
_SETUP.2
/
Group3
/
XQ Win2k Control Panel 1.xpl
< prev
next >
Wrap
Text File
|
1999-09-03
|
2KB
|
95 lines
"FILE"="Xteq Systems X-Setup Plugin 5.0"
"TYPE"="8"
"COUNT"="2"
"TEXT 1"="Edit Path..."
"TEXT 2"="Delete"
"UIPATH"="Appearance\Control Panel\Windows 2000 Icons"
"NAME"="Visible Items (User)"
"VERSION"="0.90"
"LANGUAGE"="VBScript"
"DESCRIPTION 1"=""
"DESCRIPTION 2"=""
"DESCRIPTION 3"=""
"AUTHOR"="Xteq Systems"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
'*** ORIGINAL ***'
sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Control Panel\cpls\"
'"HKLM\Software\Microsoft\Windows\CurrentVersion\Control Panel\cpls\"
Sub Plugin_Initialize
if GetWinVer=4 then
iCount=RegEnumValues(sP)
for l=1 to iCount
s=sP & RegEnumElement(l)
s2=RegReadValue(s)
s3=RegEnumElement(l) & " (" & s2 & ")"
Call SetUIElement(l,s3)
next
else
Disable
end if
End Sub
Sub Plugin_CheckData(ElementIndex)
End Sub
Sub Plugin_Apply(ElementIndex,ElementSubIndex)
if ElementSubIndex>0 then 'OK, user has selected an item
If ElementIndex=1 then
'Rename file
s=sP & RegEnumElement(ElementSubIndex)
sV=RegReadValue(s)
sV=InputWindow("Change path",sV,1)
if IsEmpty(sV)=false then
'change it (write REG_EXPAND_SZ)
Call RegWriteValue(s,sV,4)
'update UI
s=RegEnumElement(ElementSubIndex) & " (" & sV & ")"
Call SetUIElement(ElementSubIndex,s)
end if
else
'Delete!!
s=""
sV=InputWindow("Enter YES to delete this item",s,1)
bOK=false
if IsEmpty(sV)=false then
if sV="YES" then
bOK=true
s=sP & RegEnumElement(ElementSubIndex)
Call RegDeleteValue(s)
Call SetUIElement(ElementSubIndex,"")
end if
end if
if bOK=false then
Call MsgWarning("Items was not deleted")
end if
end if
else
Call MsgWarning("No item selected - please select an item first.")
end if
End Sub
Sub Plugin_Terminate
End Sub